; ORIGINAL: 3dt2.1/examples/envstats.scm
; $Id: envstats.scm,v 1.3 1996/10/21 15:59:05 aed Exp $
;------------------------------------------------------------------
; Display environment stats
;------------------------------------------------------------------
(define env-stats
  (lambda ()
    (display "\nactive wcs color:  ")
    (display (env:active-wcs-color))
    (display "\ndefault color:     ")
    (display (env:default-color))
    (display "\nhighlight color:   ")
    (display (env:highlight-color))
    (display "\nauto display:      ")
    (display (env:auto-display))
    (display "\npoint size:        ")
    (display (env:point-size))
    (display "\npoint style:       ")
    (display (env:point-style))
    (display "\nactive view:       ")
    (display (env:active-view))
    (display "\nviews:             ")
    (display (env:views))
    (display "\n")
  )
)
